home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / BARNET / COMPILER / SATHER / !Sather / Library / IO / sa / out < prev    next >
Text File  |  1996-04-28  |  1KB  |  46 lines
  1. ---------------------------> Sather 1.1 source file <--------------------------
  2. -- Copyright (C) International Computer Science Institute, 1994.  COPYRIGHT  --
  3. -- NOTICE: This code is provided "AS IS" WITHOUT ANY WARRANTY and is subject --
  4. -- to the terms of the SATHER LIBRARY GENERAL PUBLIC LICENSE contained in    --
  5. -- the file "Doc/License" of the Sather distribution.  The license is also   --
  6. -- available from ICSI, 1947 Center St., Suite 600, Berkeley CA 94704, USA.  --
  7. --------> Please email comments to "sather-bugs@icsi.berkeley.edu". <----------
  8.  
  9. -- out.sa: Output on stdout.
  10. -------------------------------------------------------------------
  11. class OUT < $OSTREAM is
  12.    -- Direct access to stdout.
  13.    
  14.    create:SAME is return self end;
  15.    
  16.    plus(s:$STR):SAME is 
  17.       -- Print `s' on stdout and return self.
  18.       
  19.       FILE::stdout.plus(s);
  20.       return self;
  21.    end;
  22.    
  23.    plus(s:STR):SAME is 
  24.       -- Print `s' on stdout and return self.
  25.       
  26.       FILE::stdout.plus(s);
  27.       return self;
  28.    end;   
  29.    
  30.    plus(s:$STR) is
  31.       FILE::stdout.plus(s)
  32.    end;
  33.    
  34.    plus(s:STR) is
  35.       FILE::stdout.plus(s)
  36.    end;
  37.    
  38.    flush is
  39.       -- Flush buffers.
  40.       FILE::stdout.flush
  41.    end;
  42.    
  43. end; -- class OUT
  44.  
  45.  
  46.